home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / fb386 / ps_graph / ps.out < prev    next >
Text File  |  1991-10-18  |  2KB  |  182 lines
  1. /Times-BoldItalic findfont
  2. 15 scalefont
  3. setfont
  4. /inc { 1 index load add def } def
  5. /pletter { moveto show } def
  6. /mesh {
  7. setlinewidth
  8. /y ystart def
  9. ylength yinte div floor cvi 1 add
  10. {
  11. xstart y moveto
  12. xlength 0 rlineto
  13. /y yinte inc
  14. } repeat
  15. /x xstart def
  16. xlength xinte div floor cvi 1 add
  17. {
  18. x ystart moveto
  19. 0 ylength rlineto
  20. /x xinte inc
  21. } repeat
  22. stroke
  23. } def
  24. /axis {
  25. setlinewidth
  26. xstart 0 moveto
  27. xlength 0 rlineto
  28. 0 ystart moveto
  29. 0 ylength rlineto
  30. stroke
  31. } def
  32. /unitscale {
  33. /yscale exch yinte mul def
  34. /xscale exch xinte mul def
  35. } def
  36. /scalexy {
  37. /xx x xscale mul def
  38. /yy y yscale mul def
  39. } def
  40. /check {
  41. xx xstart ge
  42. xx xstart xlength add le
  43. and
  44. yy ystart ge
  45. yy ystart ylength add le
  46. and and
  47. } def
  48. /exe {
  49. {
  50. cx cy
  51. scalexy
  52. check
  53. { exit } if
  54. /t tinte inc
  55. } loop
  56. xx yy moveto
  57. tend tstart sub tinte div abs floor cvi
  58. {
  59. /t tinte inc
  60. cx cy
  61. scalexy
  62. check
  63. { xx yy lineto } if
  64. } repeat
  65. } def
  66. /e 2.71828 def
  67. %
  68. newpath
  69. 180
  70. 180
  71. translate
  72. /xstart
  73. -56.6
  74. def
  75. /xlength
  76.  113.2
  77. def
  78. /xinte
  79.  11.32
  80. def
  81. /ystart
  82. -56.6
  83. def
  84. /ylength
  85.  113.2
  86. def
  87. /yinte
  88.  11.32
  89. def
  90. true
  91. {
  92. 0.8
  93. axis } if
  94. true
  95. {
  96. 0.1
  97. mesh } if
  98. (
  99. NO.2
  100. ) xstart xlength add 10 add 0 pletter
  101. 1
  102. 1
  103. unitscale
  104. /tstart
  105. -3
  106. def
  107. /tend
  108. 3
  109. def
  110. /tinte
  111. 0.01
  112. def
  113. /cx { /x
  114. t 
  115. def } def
  116. /cy { /y
  117. t 1 add 2 exp 3 add 
  118. def } def
  119. /t tstart def
  120. 1.5
  121. setlinewidth
  122. exe
  123. stroke
  124. %
  125. newpath
  126. 0
  127. 0
  128. translate
  129. /xstart
  130. -56.6
  131. def
  132. /xlength
  133.  113.2
  134. def
  135. /xinte
  136.  18.8667
  137. def
  138. /ystart
  139. -56.6
  140. def
  141. /ylength
  142.  113.2
  143. def
  144. /yinte
  145.  18.8667
  146. def
  147. false
  148. {
  149. 0.8
  150. axis } if
  151. false
  152. {
  153. 0.1
  154. mesh } if
  155. (
  156. NO.1
  157. ) xstart xlength add 10 add 0 pletter
  158. 1
  159. 1
  160. unitscale
  161. /tstart
  162. -3
  163. def
  164. /tend
  165. 3
  166. def
  167. /tinte
  168. 0.01
  169. def
  170. /cx { /x
  171. t 
  172. def } def
  173. /cy { /y
  174. t 2 exp t sub 3 add 
  175. def } def
  176. /t tstart def
  177. 1.5
  178. setlinewidth
  179. exe
  180. stroke
  181. showpage
  182.